Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/MacMETH 3.2.1/Examples/Out.MOD

Modula Implementation | 1992-12-29 | 481 b | 30 lines | [TEXT/MEDT]

IMPLEMENTATION MODULE Out;

IMPORT InOut;

  PROCEDURE Open;
  BEGIN InOut.OpenOutput("");
  END Open;

  PROCEDURE Char(ch: CHAR);
  BEGIN InOut.Write(ch)
  END Char;

  PROCEDURE String(str: ARRAY OF CHAR);
  BEGIN InOut.WriteString(str)
  END String;

  PROCEDURE Real(x: REAL; n: INTEGER);
  BEGIN InOut.WriteReal(x, n)
  END Real;

  PROCEDURE Int(i, n: LONGINT);
  BEGIN InOut.WriteLongInt(i, SHORT(n))
  END Int;

  PROCEDURE Ln;
  BEGIN InOut.WriteLn
  END Ln;

END Out.